
#include "_wcsgrid.h"

#include <wcsconfig_f77.h>


typedef int Logical;


/* get */ 

#define pgqvp_ F77_FUNC(pgqvp, PGQVP)
void pgqvp_(int *units, float *x1, float *x2, float *y1, float *y2)
{
  *x1 = 0.;
  *x2 = 1.;
  *y1 = 0.;
  *y2 = 1.;
};

#define pgqwin_ F77_FUNC(pgqwin, PGQWIN)
void pgqwin_(float *x1, float *x2, float *y1, float *y2) 
{
  *x1 = 0.;
  *x2 = 1.;
  *y1 = 0.;
  *y2 = 1.;
};

#define pgqci_ F77_FUNC(pgqci, PGQCI)
void pgqci_(int *ci) 
{
  *ci = 1;
};

#define pgqtxt_ F77_FUNC(pgqtxt, PGQTXT)
void pgqtxt_(float *x, float *y, float *angle, float *fjust, const char *text, float *xbox, float *ybox) 
{
  xbox[0] = *x;
  xbox[1] = *x;
  xbox[2] = *x;
  xbox[3] = *x;
  ybox[0] = *y;
  ybox[1] = *y;
  ybox[2] = *y;
  ybox[3] = *y;
};

#define pgqcs_ F77_FUNC(pgqcs, PGQCS)
void pgqcs_(int *units, float *xch, float *ych) {
  *xch=0.;
  *ych=0.;
};


/* plot */

#define pgline_ F77_FUNC(pgline, PGLINE)
void pgline_(int *n, float *xpts, float *ypts) {
  wcsgrid_pgline(*n, xpts, ypts);
};

#define pgptxt_ F77_FUNC(pgptxt, PGPTXT)
void pgptxt_(float *x, float *y, float *angle, float *fjust, const char *text) {
  wcsgrid_pgptxt(*x, *y, *angle, *fjust, text);
};

#define pgmove_ F77_FUNC(pgmove, PGMOVE)
void pgmove_(float *x, float *y) {
};

#define pgdraw_ F77_FUNC(pgdraw, PGdraw)
void pgdraw_(float *x, float *y) {
};


/* set */ 

#define pgsvp_ F77_FUNC(pgsvp, PGSVP)
void pgsvp_(float *xleft, float *xright, float *ybot, float *ytop) {
};

#define pgswin_ F77_FUNC(pgswin, PGSWIN)
void pgswin_(float *x1, float *x2, float *y1, float *y2) {
};




#define pgsci_ F77_FUNC(pgsci, PGSCI)
void pgsci_(int *ci) {
};

#define pgnumb_ F77_FUNC(pgnumb, PGNUMB)
void pgnumb_(int *mm, int *pp, int *form, char *string, int *nc, int string_length);

